Can't get bullets in RTELEM_TYPE

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: Can't get bullets in RTELEM_TYPE_TEXTRUN

Feedback Type: Problem

Product Area: Notes Client

Technical Area: Application Development

Platform: Windows

Release: 8.5.3

Reproducible: Always

I'm using the following lotusscript code to read the text from table cells in a rich text field. Everything works great except for cells that contain bullets. It will get the text up to the bullets, but not the bullet text. Anyone see anything wrong with the code, or know how to access the bullet text?

thanks,
rob

cr = chr(10)
Set rtt = rtnav.GetElement
Set rtrange = rti.CreateRange
Set textrange = rti.CreateRange
Set range2 = rti.CreateRange
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
firstFlag = True
desc = ""
sep = ""
For i = 1 To rtt.RowCount
For j = 1 To rtt.ColumnCount
If Not firstFlag Then
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
Else
firstFlag = False
End If
Call rtrange.SetBegin(rtnav)
Call rtrange.SetEnd(rtnav)
sRiskDesc = ""
cr1 = ""
Set rtnavcell = rtrange.Navigator
Call rtnavcell.FindFirstElementRTELEM_TYPE_TEXTRUN)
Do
Call textrange.SetBegin(rtnavcell)
Call textrange.SetEnd(rtnavcell)

Set nav2 = textrange.Navigator
Call nav2.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH)
Do
Call range2.SetBegin(rtnavcell)
Call range2.SetEnd(rtnavcell)
sRiskDesc = sRiskDesc & cr1 & range2.TextParagraph
cr1 = cr
Loop While nav2.FindNextElement(RTELEM_TYPE_TEXTPARAGRAPH)
Loop While rtnavcell.FindNextElementRTELEM_TYPE_TEXTRUN)

Next
Next

Feedback number WEBB8X5HK3 created by ~Dexter Bubnibergli on 08/13/2012

Status: Open
Comments: